home *** CD-ROM | disk | FTP | other *** search
/ Radio Active - The Music Trivia Game Show / Radio Active - The Music Trivia Game Show (1994)(Sanctuary Woods).iso / radactiv / radactiv.dir / 00298_Field_298.txt < prev    next >
Text File  |  1994-11-20  |  2KB  |  65 lines
  1. on PupsOnOff list
  2.   if list = "AllOff" then
  3.     put "-1,-2,-3,-4,-5,-6,-7,-8,-9,-10,-11,-12,-13,-14,-15,-16,-17,-18,-19,-20,-21,-22,-23,-24,-25,-26,-27,-28,-29,-30,-31,-32,-33,-34,-35,-36,-37,-38,-39,-40,-41,-42,-43,-44,-45,-46,-47,-48" into list
  4.   end if
  5.   if item 1 of list = empty then exit
  6.   put the number of items in list into endme
  7.   repeat with x = 1 to  endme
  8.     put item x of list into hold
  9.     put value(hold) into changesprite
  10.     if changesprite < 0 then
  11.       puppetsprite abs(changesprite),false
  12.     else 
  13.       puppetsprite changesprite,true
  14.     end if
  15.   end repeat
  16.   updatestage
  17. end PupsOnOff
  18.  
  19. on RandList which
  20.   set RList = []
  21.   set Used = []
  22.   set MyPos = 0
  23.   set TheItem = 0
  24.   put count(which) into stop
  25.   repeat with x = 1 to stop
  26.     --put x
  27.     --put MyPos
  28.     put Random(count(which)) into MyPos
  29.     put GetAt(which,MyPos) into TheProp
  30.     
  31.     --put TheProp
  32.     --put TheValue
  33.     Add RList,TheProp
  34.     DeleteAt value(which),MyPos
  35.   end repeat
  36.   return RList
  37. end RandList
  38.  
  39.     
  40. on PlaySoundList Chan
  41.   global SoundsPath,ASoundList
  42.   if Chan < 1 then
  43.     put 1 into Chan
  44.   end if
  45.   put 1 into x
  46.   repeat while x <= count(ASoundList)
  47.     if the mouseDown then 
  48.       Sound stop  Chan
  49.       exit
  50.     end if
  51.     if soundBusy(Chan) = false then
  52.       put getAt(ASoundlist,x) into mySound
  53.       if the number of cast mySound > 0 then 
  54.         puppetsound mySound
  55.         updatestage
  56.         set x = x+1
  57.       else
  58.         sound Playfile Chan, SoundsPath & mySound
  59.         set x = x+1
  60.       end if
  61.     end if
  62.   end repeat
  63. end PlaySoundList
  64.  
  65.